home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-09-04 | 841 b | 63 lines | [TEXT/ttxt] |
- !
- @ANSWER
- @HANGUP
- EXIT 0
- !
- @ORIGINATE
- !
- CHRDELAY 1
- !
- @LABEL 10
- MATCHCLR
- MATCHSTR 1 11 "er?"
- MATCHREAD 300
- NOTE "Le script de connexion n’a pu identifier \34er?\34" 3
- JUMP 99
- !
- @LABEL 11
- PAUSE 1
- WRITE "clubint\13"
- !
- @LABEL 12
- MATCHCLR
- MATCHSTR 1 13 "ogin: "
- MATCHREAD 300
- NOTE "Le script de connexion n’a pu identifier \34ogin:\34" 3
- JUMP 99
- !
- @LABEL 13
- IFSTR 11 14 "<Invité>"
- IFSTR 11 14 ""
- PAUSE 1
- WRITE "^u\13"
- JUMP 15
- !
- @LABEL 14
- ASK 0 "Veuillez entrer votre nom : "
- WRITE "^*\13"
- !
- @LABEL 15
- MATCHCLR
- MATCHSTR 1 16 "assword: "
- MATCHREAD 300
- NOTE "Le script de connexion n’a pu identifier \34assword:\34" 3
- JUMP 99
- !
- @LABEL 16
- IFSTR 12 17 ""
- PAUSE 1
- WRITE "^p\13"
- JUMP 90
- !
- @LABEL 17
- ASK 1 "Veuillez entrer votre mot de passe : "
- WRITE "^*\13"
- !
- @LABEL 90
- PAUSE 1
- EXIT 0
- !
- @LABEL 99
- PAUSE 60
- EXIT -6002 "Le script de connexion a échoué."
-